VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsDeclaration"
Attribute VB_GlobalNameSpace = True
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'xwelx 04.2010

Option Explicit

Public Property Get SecUserID() As String
    SecUserID = mUserID
End Property

Public Property Let SecUserID(ByVal sSecUserID As String)
    mUserID = sSecUserID
End Property

Public Property Get SecUserRole() As String
    SecUserRole = mUserRole
End Property

Public Property Let SecUserRole(ByVal sSecUserRole As String)
    mUserRole = sSecUserRole
End Property

Public Property Get SecUserName() As String
    SecUserName = mUserName
End Property

Public Property Let SecUserName(ByVal sSecUserName As String)
    mUserName = sSecUserName
End Property

Public Property Get COID() As String
    COID = mCOID
End Property

Public Property Let COID(ByVal sCOID As String)
    mCOID = sCOID
End Property

Public Property Get Server() As String
    Server = mServer
End Property

Public Property Let Server(ByVal sServer As String)
    mServer = sServer
End Property

Public Property Get DBName() As String
    DBName = mDBName
End Property

Public Property Let DBName(ByVal sDBName As String)
    mDBName = sDBName
End Property

Public Property Get DBDriver() As String
    DBDriver = mDBDriver
End Property

Public Property Let DBDriver(ByVal sDBDriver As String)
    mDBDriver = sDBDriver
End Property

Public Property Get DBPassword() As String
    DBPassword = mDBPassword
End Property

Public Property Let DBPassword(ByVal sDBPassword As String)
    mDBPassword = sDBPassword
End Property

'Public Property Get lBoolean() As Boolean
'    lBoolean = mBoolean
'End Property
'
'Public Property Let lBoolean(ByVal sBoolean As Boolean)
'    mBoolean = sBoolean
'End Property
'
'Public Property Get vBookMark() As Variant
'    vBookMark = mBookMark
'End Property
'
'Public Property Let vBookMark(ByVal sBookMark As Variant)
'    mBookMark = sBookMark
'End Property
'
'Public Property Get sID() As String
'    sID = m_ID
'End Property
'
'Public Property Let sID(ByVal sNewID As String)
'    m_ID = sNewID
'End Property

Public Property Get sSQL() As String
    sSQL = m_sSQL
End Property

Public Property Let sSQL(ByVal sNewSQL As String)
    m_sSQL = sNewSQL
End Property

'Public Property Get sDivision() As String
'    sDivision = m_Division
'End Property
'
'Public Property Let sDivision(ByVal sNewDivision As String)
'    m_Division = sNewDivision
'End Property


